home *** CD-ROM | disk | FTP | other *** search
- property outcurs, incurs, incursSet, customImage, customMask, oldcursor, useCustom, NormalState, OverState, DownState, ActiveState, InactiveState
-
- on translate_cursor me, Setting, image, mask, Custom
- val = [member(image), member(mask)]
- return val
- return Setting
- end
-
- on endSprite me
- oldcursor = member("point")
- end
-
- on beginSprite me
- oldcursor = member("point")
- val = translate_cursor(me, me.incursSet, "point", "point mask", 1)
- set the cursor of sprite the spriteNum of me to val
- memref = the member of sprite the currentSpriteNum
- castLibNum = memref.castLibNum
- NormalState = member(member(memref).memberNum, castLibNum)
- DownState = member(member(memref).memberNum + 1, castLibNum)
- end
-
- on mouseEnter me
- end
-
- on mouseLeave me
- set the member of sprite the spriteNum of me to me.NormalState
- end
-
- on mouseDown me
- set the member of sprite the spriteNum of me to me.DownState
- end
-
- on mouseUp me
- set the member of sprite the spriteNum of me to me.NormalState
- end
-
- on mouseUpOutSide me
- set the member of sprite the spriteNum of me to me.NormalState
- end
-